home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / comm / fido / wpl_intro.lzh / rexx / call.rexx next >
OS/2 REXX Batch file  |  1993-01-28  |  541b  |  30 lines
  1. /* call.rexx  For use with WPL */
  2.  
  3. /*
  4.  * 
  5.  *
  6.  * Russell McOrmond   rwm@Atronx.OCUnix.On.Ca   {tigris,alzabo,...}!atronx!rwm 
  7.  * FidoNet 1:163/109  Net Support: (613) 230-2282  Amiga-Fido Support  1:1/109 
  8.  * Current WPL 'keeper of sources'.
  9.  *
  10.  */
  11.  
  12.  
  13. Options RESULTS
  14. Options failat 99999
  15.  
  16. RC = 0
  17.  
  18. parse arg callsystem option
  19.  
  20. do forever
  21.   Address 'SLAVE2'
  22.   'string $(state)'
  23.   if upper(RESULT) = 'WAITING' then do
  24.     'call '||callsystem
  25.      say 'Result: 'RESULT' RC:'RC
  26.      exit
  27.   end
  28.   call delay (50*30)  /* delay for 30 seconds */
  29. end
  30.